;;;QQ:67762207====
[@NecklaceMake]
{
#SAY
ڴħʯƬʲôҽȡ200򡢷ħʯ100\
{FCOLOR/1}ħԽϸߵϳɳɹΪ9%{FCOLOR/12}\
ʹ{FCOLOR/10}ʯ{FCOLOR/12}ÿɹ3% ʹ30\
ʹ{FCOLOR/10}ɷʯ{FCOLOR/12}ÿɹ1% ʹ30.\\

<Ѫ/@madomake_Accessory(Ѫ,ѪգѪ,Ѫգ,Ѫգ䣩,Ѫգգ,9)>\
<찵/@madomake_Accessory(찵,찵ƣڣ,찵ƣ죩,찵ƣ,찵ƣƣ,9)>\
<Ź/@madomake_Accessory(Ź,Źţ,Ź,Źƣ,Ź,9)>\
<̺/@madomake_Accessory(̺,̺,̺,̺̣,̺,9)>\\

;;==================Ѫ=========================================
[@madomake_Accessory()]
#IF
#ACT
mov Ŀ %ARG(1)
mov ϳ1 %ARG(2)
mov ϳ2 %ARG(3)
mov ϳ3 %ARG(4)
mov ϳ4 %ARG(5)
mov ɹ %ARG(6)
mov ʯ 0
mov ʯ 0
mov ɷʯ 0

#IF
checkcmd CHECKITEMCOUNT ʯ

#IF
Elarge P9 30
#ACT
mov ʯ 30
#ELSEACT
mov ʯ %P9

#IF
Large ʯ 0
#ACT   
mov ʯ %ʯ
mov P1 3
mov P2 %ʯ
mul P2 P1  ;;ÿ3%
mov ʯ %P9
inc ɹ %ʯ

#IF
checkcmd CHECKITEMCOUNT ɷʯ

#IF
Elarge P9 30
#ACT
mov ɷʯ 30
#ELSEACT
mov ɷʯ %P9

#IF
Large ɷʯ 0
#ACT
inc ɹ %ɷʯ

#IF
checkitem %ϳ1 1
checkitem %ϳ2 1
checkitem %ϳ3 1
checkitem %ϳ4 1
checkgold 2000000
checkitem ħʯ 100
#ACT
formatstr "<׼%s/@madomake_Accessory_1>" %Ŀ
#SAY
Ŀǰںϳм<$OUTPUT(ʯ)>ʯ,<$OUTPUT(ɷʯ)>ɷʯ.Ŀǰϳɵ{FCOLOR/10}ɹΪ<$OUTPUT(ɹ)>%{FCOLOR/12}\\
<$OUTPUT(A9)></@madomake_Accessory_1>\
#ELSESAY
㻹û׼ȫءҪ{FCOLOR/10}<$OUTPUT(ϳ1)> <$OUTPUT(ϳ2)> <$OUTPUT(ϳ3)> <$OUTPUT(ϳ4)>{FCOLOR/12}һ100ħʯ200ĲϷѡ\\
< /@Exit>


[@madomake_Accessory_1]
#IF
checkitem %ϳ1 1
checkitem %ϳ2 1
checkitem %ϳ3 1
checkitem %ϳ4 1
checkgold 2000000
checkitem ħʯ 100
#ELSEACT
break
#ELSESAY
㻹û׼ȫءҪ{FCOLOR/10}<$OUTPUT(ϳ1)> <$OUTPUT(ϳ2)> <$OUTPUT(ϳ3)> <$OUTPUT(ϳ4)>{FCOLOR/12}һ100ħʯ200ĲϷѡ\\
< /@Exit>

#IF
checkitem ʯ %ʯ
checkitem ɷʯ %ɷʯ
#ACT
movr D0 101
#ELSEACT
break
#ELSESAY
ôְʯȡ?\\
<ر/@exit>

#IF
Esmall D0 %ɹ
#ACT
take ʯ %ʯ
take ɷʯ %ɷʯ
take %ϳ1 1
take %ϳ2 1
take %ϳ3 1
take %ϳ4 1
take  2000000
take ħʯ 100
give %Ŀ 1

#SAY
ŵط޸\
ˡ䱦\\
< /@Exit>

#ELSEACT
take ʯ %ʯ
take ɷʯ %ɷʯ
take %ϳ1 1
take %ϳ2 1
take %ϳ3 1
take %ϳ4 1
take  2000000
take ħʯ 100
#ELSESAY
ܱǸ֪ͨ,κܳʧ.\\
< /@Exit>
}
;;;QQ:67762207====